home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
176-200
/
scopedisk180
/
arexxtutorial
/
rexxarplib
/
dofor.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-19
|
352b
|
29 lines
/** dofor.rexx
*
* This function does 'oper' for all 'fn'.
*
**/
parse arg fn oper
oper = strip(oper)
if fn = "" then do
say "Usage: dofor <wildcards> <operation>"
exit
end
call filelist(fn, files, F)
if files.0 = 0 then do
say "No files found"
exit
end
do i = 1 to files.0
if files.i = "" then leave
oper' 'files.i
end
exit